home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / jukebox_2.1 / rem.jb < prev    next >
Text File  |  1996-02-22  |  473b  |  22 lines
  1. /* calculate remaining time */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. numeric digits 4
  5. options results;
  6. current time
  7. relative = result;
  8. current cdtime
  9. absolute = result;
  10. subtime absolute relative
  11. remain = result;
  12. percent = ticks(remain) * 100 / ticks(absolute);
  13. say 'remaining play time' remain 'of' absolute '('||percent||'%)'
  14. exit 0;
  15.  
  16. ticks:
  17. parse arg tstr
  18. parse value tstr with time.0 ':' time.1 ':' time.2;
  19. abs = (time.0 * 60 + time.1) * 75 + time.2
  20. return abs
  21.  
  22.